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HISTORICAL PERSPECTIVE 



FORTH was created by ^t. Charles H. Moore in 1969 at the 
National Radio Astronomy Observatory, Charlottesville, 
VA. It was created out of dissatisfaction with available 
progranning tools, especially for observatory autonaticx). 

Hocre and several asscxriates fcxned PQRIH, Inc. in 
1973 for the purpose of licensing and support of the FORTH 
Operating System and Prograaming Language, and to supply 
application prograimiing to meet cmstoiaers unique require- 
nents. 

The Forth Interest Gtroup is centered in Ncz-thsrn Cali- 
fornia, although our menbership of 1100 is torld-wids. It 
was foroBd in 1978 by FORTH (rogramars to encourage uae oC 
the language by the interchange of ideas thcou^ aeainars 
and publications. 



IMPORTANT DATES 



April 26 FIG Monthly Meeting, 1:00 pn, at Liberty 
House, Hayward, CA. Came to the (ORU. Mark- 
shop at 10:00 am and stay on. 

Hay 20 National FIG Meeting, Disneyland Hotel, 

Anaheim, CA at the NCC Personal Ccaiputing 
Festival. Dinner in the evening and technical 
sessicxis all day. Ccxitact: Jla Flournoy, 
(408) 779-0848. 

Hay 24 FIG Monthly Meeting, 1:00 pm, at Liberty 

House, Hayward, CA. Come to the KMU. Work- 
shop at 10:00 am and stay on. 



June 8-13 American Chemical Scxriety 

June 21 So. Cal. FIG Meeting, MSI Data Corp., 300 

Fischer Ave., Costa Mesa, CA. Noon. 

June 28 FIG Monthly Meeting, 1:00 pm, at Liberty 

House, Hayward, CA. Cone to the FOWL Work- 
shop at 10:00 am and stay cn. 



PUBLISHER'S COLUMN 



Don't let your menbership in FIG crash. Renew today! 
It's easy. Just send in your check for $12.00 (S15.00 
overseas) and you'll be all set for the next six issues of 
FORTH DIMEMSIONS and the FIG notices. If you are in doubt 
as to whether your membership is up, just look at the 
aMcess label. If it reads "Renew March 1980* then its 
time to get that c:heck off. Do it tcjday. 

The next issue of FORTH DIMENSIONS is going to be 
super. It will be a technical issue with all the entries 
submitted in the Case Contest. Make sure that you receive 
this important issue, renew your membership in FIG today. 

niis may sound like a hard pitch fcx- your menbership but 
FIG needs you. The only way that we can keep on publishing 
PORTO DIMQISiaNS and spreading the FORTH word is by having 
your support. In fact, how about getting others to sign 
up. 



Roy Martens 



KIM HARRIS COURSE 



A five day intensive course cxi pcogranming with PORTO 
will be held July 21-25 at Humbolt State University in 
Areata, California. The course will cover the FORTH 
approach to producing computer applications includlrq: (1) 
analyzing the requirements of a {roblem, (2) designing a 
logical solution, and (3) implementing and testing the 
■oluticn. Ttipics will include the usage, extension, and 
internals of the FORTH language, compiler, assembler, 
virtual madiine, multitasking operating system, mass storage 
virtual memory manager, and file system. Computers will be 
available for demonstrations and class exercises. The 
course will be taught by Kim Harris, and Humbolt State 
University will give 4 units of credit thrcxjgh the office of 
Continuing education. Tuition for the course is $112 per 
student. The text will be "Using PORTO"; copies will be 
available at the course for $25 each. Housing is available 
in very nice dormitory rooms for $9 per perscxi per night or 
at several marby motels. Cafeteria meals may be pirchased 
individually or at $10.25 per day. For mcxre information 
and registration materials write, before June 23: 

Rrof. Ronald Zanmit 
Physics Department 
Huibolt State University 
Areata, California 95521 
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FORML NEWS 



FORML (FORTH Modification Laboratory) is a research 
group axrdinating individual efforts on the technical 
evolution of PORTH. Workshop meetings are held the fourth 
Saturday of each month at 10:00 a.m. at the Liberty House, 
Hayward, CA. (Make a day of it by staying for the FIG 
meeting in the afternoon.) Working groups determine 
and docutent: the objectives (what problems need to be 
solved), status of topic (what has already been done), 
the challenges (what has to be done), the methods (the 
appropriate approach), the list (detailed topics and 
problems), the specifications (requirements of valW 
solutions). You can input directly to the technic*! 
oamaittees or to FIG Chairman Kim Harris (see Files CBNS). 
Tte oonnittees and leaders are: 



Comaittee 

Nuaeric Extensions & 
Floating Point 



Leader 

L^Farir Stuart 
P.O. Box 1418 
Sunnyvale, CA 94088 
(408) 296-6236 



Comnittec 

NetaFCRre - Nucleus 



Concirrency, Multitasking, 
Executive Coaaunication 
Synchronization 

Strings 



DoctanentatLon 



Qraphics 



Files DBMS 



lieader 

Arnand Gaabeca 
TTI Inc. 

555 Del Hey Ave. 
Sunnyvale, CA 94086 
(408) 735-8080 

ttxry Molaes 
808 ColeMurt, 121 
ftenlo Pack, CA 94025 

John Cassady 
11 Hiranonte {toad 
Orinda, CA 94563 
(415) 254-2398 

John S. Jaaes 
P. 0. Bon 348 
Berkeley, CA 94701 
(415) 526-8815 

Homrd Pearlautter 
1055 Cregcn Ave. 
Palo Alto, CA 94303 
(415) 856-0450 

Kin Harris 

1055 Oregon Ave. 
Palo Albo, CA 94303 
(415) 856-0450 



FC«ML needs your help. Come to the next neetingl 



THIS IS THE BEGINNING! 
THE BEGINNING OF FIG TWO! 
THE BEGINNING OF FORTH DIMENSIONS II! 
ITS TlMf TO RENEW! 
RENEW YOUR Mf MSERSHI P IN FIG! 
RENEW YOUR SUBSCRIPTION TO FORTH DIMENSIONS! 
DO IT ALL FOR ONLY $12.00! 
PO IT TODAY! 

rrs lASYt 

CHECK THE LA9CL FOR RENEW DATE! 
IF IT READS "Rentw Mar. 1980" SEND A CHECK! 



SEND IT TO: FIG, P.O. Box 1105, San Carlos, CA 94070 RENEW NOW! 



FORTH, for the Motorola 6809 



Raynoid J. Talbot, Jr. 
7209 Stella Link, Suite 112 
Houston, Texas 77025 



68 'FORTH is an implementation of 
fig-FORTH for the 6809 microprocessor. 
It is available on 5" disk configured 
for an SWTPC SS-50 Buss system with 
SWTPC MF-68 dual 5" disks and the TSC 
FLEX 9.0 disk operating system, but it 
is easily modifiable for other systems 
(write author for information). 

The 6809 is a greatly improved 
version of the Motorola 6800 8-bit 
microprocessor. It is almost like 
having a 16-bit microprocessor, since 
there are several 16-bit instructions. 
It has two 16-bit index registers X and 
Y, and a 16-bit accumulator register D 
which may also be used as two 8-bit 
registers A and B. There are many 
addressing modes, including indirect, 
autodecrement, and autoincrement. 



Inside a word, one may use X and 
D without bothering to save their 
values on entry. If one wants a second 
index register (very handy for some- 
thing like CMOVE), then one or more of 
Y, S, cc U registers may be saved in 
memory (or on one of the stacks). 

Before listing the code which makes 
the FORTH machine, let me describe the 
notation used to make dictionary 
entries with the TSC assembler riACRO 
facility: 





SCT 





initial LI.- last na^ jjtt t :.s ;j< tje 
z^-:o: 'hi-^ will iw '^vjinnirK] 
of dictionary 


total 


WCBD 




marro called wOflCH -n-iAL- <.'nuy 


icnw 


SET 




set^ l«)fT^ equal ti- [resent l.xratijn 
which -ii; fit'-.i ^^1t' of r\are 




IFC 




car.1itn>nal .xiinf-i l,u t for rMffl::;LME 
ucr is 




PCB 


1,1 •SCI 


first rytt' n-. ol Tai . with '^iqn 
antl i-rmed. hit 




ELSE 








FCB 


il»S»» 


no itwned. tilt 




E«DIF 




special ci5e of a 1 *iai acter ^iffi 
will skip Lhis 




true 






tec 


/»2/ 






oroir 








rca 




last character has sii^r bit net 




fve 




link to previous ward in diet 


lASnti 


SET 
EICM 


hcnw 


reset lASTNh to point tij this word 
etv} of macro 



A-10 

The &n quantities refer to parameter 
to the MACRO. E.g., 

MACRO 4,BAS,E 



The two hardware stack registers 
mate it ideal for FORTH — it is almost 
a FORTH machine in silicon. I have 
implemented FORTH by the following 
register assignments: 

Hie FORTH variable 

stack — U stadc register 



Hie FORTH return 
stack 



S stack register 



will assemble as 



84 42 41 53 C5 



LI NK 



Where LI NK is the link address to the 
previous entry. This macro coupled 
with assembly of addresses allows one 
to write assembly language code that is 
essentially just colon definitions, 
e.g., the macro definition of COU)N 
itself below. 



TSie FORTH in- 
struction 
pointer (IP) 



— Y index register 



Here is the assembly language 
listing for the portion of the code 
which defines the 6809 PORTO machine: 



The PC»TH register W (which points 
to the machine code being exe- 
cuted) is never stored (to save 
an instruction which is usually 
unnecessary), however, upon 
entry to a word's machine code, 
that address is in the — X 
index register 



couw 
axxL 



lenp 

sous 



FIB 



FEB 

U)l( 



1 , , : , imEOUTE 

EOCOL, OeXBC, SCSP, CURKEWr, *T, CDWntT, STORE 

CRfATE, miwK, pscooe 

Y push IP » Y to ret stack ■ 5 

2,x increaent Y to first patairetec after 

Cr« in H ■ X 
get W into X and tnen incicflcnt IP ■ Y 

to point to next inatruction 

1, XI jmf> indirect to code pointed to by 

W ■ X 

2, :,S 
•♦2 

,S** reset IP * y to next adtkess (Coml 

by popping fros the ret stack ■ SI. 



A-ll 
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Sane arbitrarily chosen exanples of 
the great econany achieved by this use 
of the stack registers is given by some 
words shown here ( note : depending on 
location, some of the BRA have to be 
the long branch instruction LBRA) . 



taCRIM 



BRA 

Fee 

PULL' 



STP 

BR* 

WORDM 

fTB 

UX) 

WOO 

BR^ 

roe 

IDC 
BRA 
WCRCH 

Fce 

PUUJ 

ac 

STO 
BRA 

roB 

PULU 
PSHS 
BRA 



7, tXECLrr.E 
••2 



pul! adAess from var . stack ' 
Ani put inl*3 w • X — onp of 
very I'* cases re<7uirinq W 



cjp! top ifm fro«r. stack into D 
A^-iTUBulaccr , ackl ^i?c:nd item, 
nrv top ^^ stact 

store 31*11 tack >n stack 



WE XT 



ti 

PUTD 
1. .? 



I,. ! 



X,D 
X,D 



get top iteiT" irtto D 
add I 

put bacfc onto D 



get t pointed to Dy stack 
replace cop of stack with • 



(jets top into D, second into X 

store second into location pointed 
to by top 



pull top Item from var. stack 
push onto ret. sack 



These various fragments of 6809 
code can be compared with the cor- 
responding 6800 code in the FIG 6800 
ASSEMBLY SOURCE LISTING. Specifically, 
the 6809 NEXT routine takes 14 machine 
cycles whereas the 6800 NEXT routine 
takes 38 cycles. 

The 68 'FORTH irnplementation for the 
6809 is essentially identical with the 
6800 fig varsion except for the machine 
code for the words defined that way. 
Many words which are coded (like PLUS) 
are shorter in 6809 code because of 
the 16-bit math. For all of the 
colon-definition-like-words in 6800 
fig-FORTH, I just used my WDRDM MAOC; 
that keeps the source file short. 

68 'FORTH implements the full 
fig-PORTH vocabulary as given by the 
May 1979 6800 ASSEMBLY SOURCE LISTING 
and the fig-POPTH Installation manual. 
In addition, particular installation 
dependent code for EMIT, KEY, and disk 
read and write are given for a 6809 
system with all disk I/O being done 
via the disk sector read/write routines 
of the TSC FLEX 9.0 disk operating 
system. FLEX formatted text files may 



be read or written in lieu of the 
terminal. (The word READ switches KEY 
to read a text file, similarly WRITE 
switches EMIT to write a text file). 
Consequently, it is possible to com- 
municate data between FORTH and other 
FLEX programs (Horrors - BASIC even!!). 

Another feature of 68' FORTH is 
something which should be part of any 
FORTH system which operates under a 
host DOS — It has a word _ (underscore 
on some terminals, left arrow on 
others) which is followed by a text 
string (delimited by carriage return or 
double quote). The text string is 
passed to the DOS command processor. 
While in 68 'FORTH one can do any FLEX 
command, e.g., CAT (catalog of FLEX 
files), DELETE, RENAME, etc., by, 
e.g. 

_ CAT l.F (carriage return) 

to get a catalog of all files on drive 
1 with name starting with F. This type 
of facility is extremely useful for the 
exchange of data with other types of 
programs and for using FORTH in time- 
sharing systems where other people use 
other languages. For example, at Rice 
we operate a PDP-11/55 with the UNIX 
operating system and TORTO functions as 
just one time-shared process along with 
many others. As yet our PDP-11 FORTH 
does not have this _ word, but I plan 
to include it in order to take advan- 
tage of the many extremely useful 
utility programs vrtiich exist in UNIX. 
In particular, in that environment, we 
want to be able to transfer data 
between tapes and disks as background 
jobs while we are working with files 
interactively with FORTH. Also, for 
number crunching work, other languages 
are more convenient and faster than 
FORTH, so we plan to implement certain 
tasks in other languages to be done as 
background jobs supervised by UNIX 
while we use FORTH for just those 
interactive tasks for which it is 
ideal. 

My main reason for pointing out 
these FORTH connections to another DOS 
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IS to encourage the FORTH standards 
team to think about standard vocabulary 
words for these links. FORTH grew up 
and still largely exists as a stand 
alone operating system. However, 
already it is used in some places as 
simply one language in a multi-language 
time shared system. I know of two 
places — here at Rice where we have 
begun a rudimentary connection between 
FORTH and UNIX, and at Kitt Peak 
National Observatory where their CDC 
6400 has very elaborate inconnections 
between FORTH and CDC's SCOPE. 



Editors Note — This is an excellent 
example of conversion of a FIG assentoly 
listing to another processor. However 
one more change is in order. NEXT on 
the 6809 is only 4 bytes long and the 
code jump to NEXT takes 3 bytes. On 
processors this powerful, the code for 
NEXT is repeated, in-line, wherever 
needed. Ihis costs one byte but saves 
3 clock cycles on each interpretive 
cycle. llTe time overhead of indirect 
threaded code is then 12 cycles. 
Similarly, PUTD should be expanded in 
line. 
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Recursion — 
The Eight Queens Problem 



Jerry LeVan 
Dept. of Math Science 
Eastern Kentucky University 
Richmond, KY 40475 



The Eight Queens problem has been 
often used as a textbook problem in 
pcogranining , particularly to illustrate 
recusion. I present here a solution in 
FORTH. 



The Pcxir Queen E^oblem at hand finds 
the board row and colunn locations on 
which eight chess queens viould be safe 
from mutual attack. This example 
doesn't check for board rotations or 
reflections, so more answers are 
printed than necessary. 

The output gives the calculation 
number on v^ich the answer was found 
and a list of the eight row nuirbers, 
ooluim by column on which the queens 
are located. Now it's your turn to 
DO-rr. 



Recusion is the technique of 
allowing a procedure (a FORTH word 
definition) to call itself. This 
is normally blocked during FORTH 
compilation, to allow a old word name 
to be used in a new definition of the 
same name. For example: 

: HELP CR CR HELP CR CR ; 

The new definition of HELP will 
execute a previous definition, but 
with two carriage returns before and 
after. This is a necessary and ccanmon 
capability. 

Hew then to have a word call itaelf, 
if not by name? Hie answer is MYSELF. 
This word will coirpile a call to the 
word in which it is located: 

: DEMO 



set I 57 

( ■ ^uMM by Jarry LxVan writ-79DEC02 ) 

1:2' DUP -f i ( double < v*lu< ) 

2 

) : MTSEir ( alloit • word to call lc»l(, by racuclloo ) 

4 LATEST rrA CFA , ; imCOUTE 

5 

6 : lAMAY ( Bakaa an array of t'a, aa (Ivan by Input ) 

7 <BU1U)S 00 1 , Loor 

( DOCS> SWAP 2* + : ( laava addraaa vithln array ) 
» 

10 S lAMAT A ( thaaa lorm workapaca for tha aolutlona ) 

11 16 lAMAT > 

12 1« lAkMT C 

1) t lAMAT I ( thla contain* trial aolutlona ) 

14 — > 

15 



set I 5S 

( aor* 8 ^uaana 

1 
2 
] 
« 

5' 
t 
7 

» 

10 
II 
12 
1) 
U 
IS 



wn-7«oeco2 ) 



sAn 

SUAF Om OVU OVEX OVER 

- 7 ♦ C » >» 

♦ ■fx 

MOr A ( I> 1> a a ; 
NAUC 

SWAT OVtt OVEI OVEl OVEI 

- 7 -f C SWAP I 
« I SHAT I 
MOT A SUAP I 



SHAT ovn om ovn ovei 

- 7 «- c 1 star 1 

* I 1 SUAT I 

MOr A 1 SUAT I ; — > 



IF MYSELF ELSE 



THB< 



In this example, if the test is 
true at IF, at MYSELF a call to DEMO 
will occur. This is acootnplished by 
defining MYSELF as IMMEDIATE. At 
compile time, MYSELF executes and 
compiles the execution (code field) 
address of the most recent (actually 
inodnplete ) definition in the CURROn! 
vocabulary. Ihe fig-PMOH definiticxi 
is: 



>cx 



1 

2 
3 
A 
S 
» 
7 
I 
» 
10 
It 
12 
13 
U 
13 



I 3* 

( aor* * 

miABU nits 

1 FtlWTSOL ( ptlBt 

■ ** fo«n4 on try 
DO I X « H 3 
: TIT (0 
DO 1 niES +1 

ir tnr i 



wn-7MK02 ) 



•a solution ) 
' niES I 6 

1 LOOP at 

( aurch for 
nEMlNAL IP QUIT 



THEN DUP I SAn 



SNAP t I 



DOP 

IP 
DDP 



1 DO-IT TtllS I Ct TIT 



HUP I* TSTACK HTSELP ELSE PtlVTSOL Tin 



< Thla rau tha pnklM ) 



: MYSELF 

LATEST PFA CFA , ; mfEDIlOE 
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A TINY' Pseudo-Code 



Bill Powell 
Sawbr i dgewor th , Herts 
England 



There are some interesting speed/ 
memory trade-offs which depend on the 
pseudo-code adopted in implementing 
PCX^TH. The discussion by David Sirag 
[1] for the PDP-11 shows DTC to be both 
faster and more compact, but less 
flexible (?) than ITC which is the 
de facto standard. But 6502 FORTH 
(Programma Consultants) appears to use 
the JSR/RTS structure. This is 
faster, but must lead to a lot of code 
since it now takes 3 instead of 2 bytes 
to reference each low level (CODE) 
routine in a high level (COLON) 
definition. 

On my 6502, an 8 bit machine, it 
seems attractive to call the most 
frequently used FORTH words with a 
single byte. My 'TINY' code reads the 
first byte and then shifts it left to 
write bits 6 and 7 into the sign and 
carry flags. For codes $80 thru $FF 
(carry set) a branch is taken to a 2 
byte COLON instruction. The even value 
we now have is used fcr the Lo byte for 
the Instruction Counter (IC). The Hi 
byte is read by the original IC before 
being saved on the return stack. This 
is still a two byte p-code v*iich allows 
us a vast number of Colon definitions. 
But we no longer need the Code Address, 
saving 2 bytes. But we must start 
these entries at even addresses which 
will cost 1/2 byte on average. 

Next the sign bit is tested. If 
clear, a branch is taken to a routine 
for low Literals which pushes the 
numbers thru $3F on the stack. Then 
this routine drops back into the 'TINY' 
interpreter. "Hiese low literals (0-63) 
thus compile into fast single byte 
p-codes. Frequently used Variables can 
be stored at these memory addresses 
making this doubly useful, e.g.. User 
Variables. 



nucleus OODE routine. This is done by 
a look-up table which costs two bytes 
per entry just as the Code Address 
normally does. We can support up to 
64 CODE routines this way. Despite 
the time taken for bit testing this 
structure works out quite fast because 
only one byte has to be fetched. Of 
course we could arrange for more than 
64 ODDE entries by defining one that 
gives access to a three byte structure, 
but 64 should be enough. 

The effect of these one byte 
instructions is to make the txxJy of 
COLON definitions much smaller. 
Literals require 1, 2 or 3 bytes 
instead of 2, 3 or 4 bytes. On the 
other hand CONSTANTS and VARIABLES will 
usually require 3 instead of 2 bytes 
since in TINY they are compiled 
like Literals. But these words are 
infrequent in FORTH because parameters 
are passed on the stack. 







TOH 






PIC 




SE 


1. axe 


cycles 

d.bytca 

p.t^tes 


21 
5 
1 




12 
1 
3 


It 
3 
2 




28 


2. •: 


cyclee 
d. bytes 
p.tVtes 


100 
1 
2 


1/2 


24 

1 
3 


111 
i 
2 




105 


3. Staraqa 


cyclee 

d.bytee 

p.l^tee 


» to 

1 

1 to 


48 

3 


7 to SO 

3 
J 


7 to 
) 
2 


48 


7 to U 


4. Literal! 


cyclee 
p. byte* 


X to 

1 to 


49 

3 


? to J* 
4 to S 


49 to 

2 to 


54 
4 


7 to 48 

2 to 4 


5. k Liro 
U> level 


cyclee 
p.Bytee 


2M 
14 




24( 
2» 


214 
24 




340 
23 


6. A LiM 
Hi level 


cycles 
p. bytes 


•••«1237 

17 




lOM 
2> 


1412 
24 




1S»I"»« 

23 


7. nro9raa d.bytee 
Storage p.bytea 
iDtal.byta* 


2IS 

no 

•••♦IJIS 




155 
1750 
1895 


4«5 
1440 

ins 




4SS 

im 

18J5"«« 



Ing p-codes: d. bytes • dictionary overhead 

p.bytes • tanotn of p-oode required 



For codes $40 thru $7F the above 
branches fail and we drop into a 
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The table above analyses three forms 
of overhead: 

1. Time overhead in cycles 

2. Dictionary building 
overhead d. bytes 

3 P-oode required each 
time the entry is 
called p. bytes 

Sections 1, 2 and 3 analyse FOTTH 
words of type CODE, COLON, CONSTANT, 
and Section 4 analyses Literals. 

In Section 5 we find the time over 
head to execute a line assumed to 
contain 6 CODE, 1 Literal, and 2 
Storage (C(»ISTANr) words, as well as 
the space for its p-code. Some of the 
numerals have been assumed low. 

Section 6 is like Section 5 except 
that 3 of the CODE words have been 
replaced by 3 COLON words of the type 
in Section 5. At this level we can get 
a good idea of ooraparative speeds of 
execution. 

Section 7 gives the storage required 
for a program of 35 CODE, 20 storage, 
and 60 COLON words (drawing equally 
from Sections 5 and 6). This does not 
include the ^ce for actual data nor 
for the machine code of the nucleus, 
but does include all p-code and 
dictionary overheads apart from the 
headers. 

Taking ITC as 100% we see that the 
performance becomes: 

TINY JSR/RTS PTC 

Time Overhead 78% 66% 89% 
Space Required 66% 103% 104% 

The benchmarks are for the 6502, but 
similar ranking seems likely for other 
8 bit micros. Clearly, longer programs 
will favor TINY even more. On the 
other hand JSR/RTS may execute even 
faster than indicated because the 
nucleus can maJce freer use of the cpu 
registers. 



An inpcYtant aspect of FOCTH is the 
access it gives the user to the struc- 
ture of the language. Therefore I 
would still like to see ITC remain the 
preferred form because of its elegence 
and flexibility. But TINY has much to 
offer on small 8 bit systems. 

[1] Sirag, D: "ETC v/s nc for FDRSH" 
FOOT DXMBBIONS \tol. 1, No. 3, Oct./ 
Nov. 1978 
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FORTH in Literature 



At the FORTH Convention, October, 
1979, Dan Slater gave a short report on 
an experiment on communication with 
killer whales. By use of a touch 
sensitive plate, the orca could learn 
to physically equate touching a posi- 
tion with a concept or object. 
Interest was expressed in using the 
syntax of FORTH to define new items. 
By this method a man/whale vocabulary 
can be built. 

The evening Charles Moore read a 
FORTH poem by Ned Conklin. It is 
loosely based on a classic of English 
literature. 



SONG 

SIXPENCE : 
BEGIN KtE % POCKET -f! TnJLL OD 
24 CO BLACKBIRD I 9 PIE *l WOP 
BMX BEGIN ?OPE»ED END 
SING DUNry-OISH KIIC '. SURPRISE ; 



operator indicating his interest and 
£f^oval by operating any terminal key 
at the REST after each stanza. 



sen 



1 

2 
3 
4 
S 
6 
7 

a 

4 

10 

I 

2 
J 
4 
i 



I 10« 

( Th< TlMory that Jack built vn-TfOKlS ) 

( rroa Th* Spaca Child's Mothar Cooaa, Fradarlck Hloaor ) 

RECITE 110 LOAD QUIT j ( aay this pom ) 

THE ." th« •• i 

THAT C« ." That " ; 

THIS C« ." This la " THE ; 

JACK ." Jack built" 1 

SUIMAIT ."^SuaBary" ; 

FlAW Flan" i 

HUMIZRT MuMary" ; 

K •" Conatant K" ; 

HAZE ." Ecudlta Varbal Hata" ; 

mASC Turn of a Plauaibla Phraaa" : 

lUirr Chaotic Confualon and Huff" ; 

STUrr ■" Cybcrnatica and Stuff" ; 

THnXT ." Thaory " JACK ; — > 



A-21 



Bill Ragsdale has submitted two 
mcxe. This is a familiar quotaticxi, 
with apologies to Browning: 

: LDVE 

CR ." How do I love thee?" 
CR Let me count the ways." 

1 BEGIN CR DUP . 1+ AGAIN 



RHYME 

JACK DUP NIMBLE BE 

DOP QUICK BE 
C^NDI£-STICK OVER JWIP 



set 



1 

2 
} 
4 
S 
« 
7 
8 
9 
10 
I 
2 
3 
4 
S 



109 

Nora Poaa 

unroN 

CHILD 

CYUMETICS 
HtDtlK CR . 

LAY THAT .' 

EASED Ct 
SAVED THAT 



Wn-790ECn ) 



" Sutton to Start the HacKina" 
" Spaca Child with Brow Sarana" 
Cybamatlca and Stuff" ; 
" Kidlnt " THE FLAW ; 
' lay in " THE THEORY ; 
' Baaad on " THE HUWIERY 
." aaved " THE SUMIARY ; 



CLOAK CR ." Cloaking " K ; 

THICK IF THAT ELSE CR ." And " THEH ." Thickanad " THE HAZE i 

HIMC THAT ." hunt on " THE PHRASE ; 

COVER IF THAT ." covarad " ELSE CR ." To covar " THEH RLUFT ! 

MAKE CR To aaka with " THE CYtCRHCTlCS ; 

PUSHED CR •" Uho puahad " SUTTON ; 

REST 4» EMIT 10 SPACES KEY DROP CR CR CR ; 

WITHOUT CR ." Without Confualon, axpoaiaR tha Bluff" ; RECITE 



Finally here is an actual, full 
poem. It is taken from "The Space 
Childs Mother Goose" by Frederick 
Winsoc, Simon and Schuster, 1958. It 
consists of eleven stanzas and is 
almost recursive. 

The first two screens compile 
the primitives from which the poem 
is recited, by loading of the last 
screen. The computer's recitation 
occurs stanza by stanza with the 



CR f 110 

< Racita our poaa WPR-'790EC15 ) 

1 CR CR CR THIS THEORY REST 

2 THIS FLAW LAY REST 

3 THIS MUMERY HIOIHC LAY REST 

4 THIS SUMIART lASED HIDING LAY REST 

5 THIS K SAVD RASED HIDING LAY REST 

» THIS HAU CLOAK SAVED RASED HIDING LAY REST 
1 THIS PMASt 1 THICK CLOAK SAVED BASED HIDING LAY REST 
• THIS ILUrr NUNC 1 THICK CLOAK SAVED BASED HIDING LAY REST 
9 THIS trVrV 1 COVER HUNG THICK CLOAK SAVED RASED HIDING 
10 LAY REST 

U THIS BUTTON HAKE COVER HIRIG THICK CLOAK SAVED 
U BASED HIDING LAY REST 

IJ tuts CHILD PUSHED CR ." That aada with " CYBERNETICS WITHOUT 

14 HUNG » ." And. shradding " THE HAZE CLOAK CR ." Wraekad " THE 

15 SUMIARY BASED HIDING CR And Oaaoltahad " TNeOlY REST 



FORTH, Inc. News 



A series of free semiruurs and paid 
($100-125) workshops is being offered; 
polyFORTH will be presented. Wie 
schedule is: Palo Alto, May 8 & 9; 
Rochester, NY, May 13; Boston, May 14 & 
15; New York, June 10; Cherry Hill, 
June 11; Washington-Baltimore, June 12 
& 13; Houston, June 16 & 17; New York, 
June 18; Palo Alto, June 24 & 25. 
For more information and/or to regis- 
ter: Call ftris at FORTH, Inc. (213) 
372-8493. 



FIG DOINGS 



Intensive Short Course 

The American Chemical Society is 
offering a nimber of five day, hands- 
on, in-depth lab courses on micro- 
processors and minicomputers. The 
participants will have access to a 
PDP-11 network running FC«TH. Sessions 
are June 8-13, September 7-12 and 
December 14-19 at VPI, Blacksburg, 
VI at a cost of $485 for ACS members 
and $550 for non-members. For more 
information contact ACS Short Courses, 
1155 Sixteenth St., N.W. , Washington, 
DC 20036. 



FIG GROUPS PC»MED OR FC«MING 



San Diego - Call Guy Kelly (714) 
268-3100 ext 4784 or Ten 
Boyle (714) 571-7711 

Seattle - Call Dwight Vandenburg 
(206) 542-8370 or Terry 
Dettman (206) 821-5832 

Mass. - Biird Wednesday at 7:00 
pm in Cochituate, MA. 
Call Dick Miller (617) 
653-6136 



Virginia - Call Joel Shprentz (703) 
437-9218 or Paul van der 
Eijk (703) 354-7443 

Texas - In Houston, call Jeff 
Lewis (713) 729—3320, 
in Dallas, call John 
Earls (214) 661-2928 and 
in Denton, call Dean 
Vieau (313) 493-5105 

Arizona - Call Dick Wilson (602) 
277-6611 ext. 3257 

Oregon - Call Ed Kararoerer (503) 
644-2688 

New York - Write Tom Jung, 704 
166th St., Whitestone, 
NY 

Michigan - Call Dwayne Gustaus 
(817) 387-6976 



OISER PUBLICATIONS 



Dick Miller has sent the first issue 
of the MIS FORTH Newsletter. It's jam 
packed with news, tips and updates for 
MMS FORIH users on the TRS-80. 

It's a service to registered owners, 
and Dick vrould be glad to send a sanple 
copy to prospective users. Write 
Miller Microooirputer Services, 61 Lake 
Shore Road, Natick, MA 091760. 

• * * 

Thanks tx) Pig member Prank Dougherty 
(325 Beacon Street, Belvedere, IL 
61008) for the writeup in the Blackhawk 
Bit Burners Newsletter. Prank dis- 
cussed the language and our efforts, as 
MBll as the dialect STOIC. 

FORIH for Microconputers by John S. 
James originally published in Dr 
Dobbs Nunber 25 May 1978 has been 
reprinted first in ACM SIGPLAN NOTICES , 
Oct. 1978 and now in an IEEE Tutorial: 
MICROCOMPUTER PROGRAMMING AND SOFTWARE 
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SUPPORT , IMSONG LEE, EDITOR, lEE cat 
No. EHO 140-4 to quote from this 
publication "James gives a compact, but 
not necessarily easy, introduction to a 
stack oriented, interactive pcogranming 
language called FORTH. A better 
tutorial presentation may be found in 
the manual, PROGRAM FORTH, A PRIMER, by 
Gregg Howe, Steward Observatory, 
University of Arizona, 1973." The 
current availability of this document 
is unknown. 



More on STOIC-II 

Technical Report TR-001 

"EDIT79, A STOIC-II Programming 
Exarnple" (63 pages) $7.00 

This report represents and example 
of a non-trivial program written 
entirely in STOIC-II. The program, 
a text editor, was cross-compiled to 
produce a stand-alone object program, 
thus facilitating benchmark comparisons 
with the CP/M editor vrtiich it closely 
resembles. Included in the report are 
the benchmark results, a brief user's 
guide, and source code for the editor 
along with extensive comments. 

Contact: Jeff Zurkow 

Avooet Systems 

804 South State Street 

Dover, DE 19901 



solution. Topics will include the 
usage, extension, and internals of the 
PCRTH langtage, ccnpiler, assentiler, 
virtual machine, multitasking operating 
system, mass storage virtual memory 
manager, and file system. Computers 
will be available for demons tr at icxis 
and class exercises. The course will 
be taught by Kim Harris, and Humbolt 
State University will give 4 units of 
credit through the office of Continuing 
Education. Tuition for the course is 
$112 per student. The text will be 
"Using FXX^IH"; copies will be available 
at the cxxjrse for $25 each. Housing is 
available in very nice dormitory rooms 
for $9 per person per night or at 
several nearby motels. Cafeteria meals 
may be purchased individually or at 
$10.25 per day. For more information 
and registration materials write, 
before June 23: 

Prof. Ronald Zammit 
Physics Department 
Hianbolt State University 
Areata, California 95521 



RENEW NOW! 



KIM HARRIS COURSE 



A five day intensive course on 
programming with FORTH will be held 
July 21-25 at Humbolt State University 
in Areata, California. Itie course will 
cover the FORTH approach to producing 
corrputer applications including: (1) 
analyzing the requirements of a prob- 
lem, (2) designing a logical solution. 
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NEW PRODUCTS 



tiny-FORTH 

A version of fig-FORTH tailored to 
the TRS-80, Level II with 16K bytes of 
memory minimum. I/O devices supported 
are: keyboard, display and cassette 
tape recorder. New words can be 
defined to control other devices. The 
editor is identical to the fig-POPTH 
editor and the output format is modi- 
fied slightly to fit the TRS-80 
display. Documentation includes: 
introduction, editor, graphics, 
assembler, advanced tiny-FORTH and 
applications. Ttie style is tutorial 
with hundreds of examples that teach 
tiny-FORTH in a hands-on mode. $29.95 
for tiny-FORTH cassette and full 
documentation for the Level II, 16K 
TRS-80 plus $1.50 for shipping and 
handling ($5.00 outside the US). The 
Software Farm, P.O. Box 2304, Reston, 
VA 22090. 



Heath H89 and H8 

FORTH for the Heath 89 and 8 is 
possible with the fig-FORTH 8080, 
Version 1.1 (as demonstrated by Jim 
Flournoy at the January FIG meeting). 
Walter Harris implemented and brought 
up the code on his dual disc H8 and 
reassembled it for the H89. For more 
information, contact: FORTH Power, P.O. 
Box 2455, San Rafael, CA 94902. 



HC^JEYWEIiL FORTH SYSTEM 

Source Data Systems announces a 
language for non-programmer data 
definition, transaction definition, 
file definition and report generation 
for Honeywell Level 6 Minis. Designed 
for information management and retre- 
vial when used together is SDS's Source 
Data Entry package. For more informa- 
tion, contact: Source Data Systems, 208 
2nd Avenue, S.E., Cedar Rapids, lA 
52406. 



KIM-1 FORTH 

This version was written from the 
FIG model by RaljAi Deane of Vancouver, 
Canada. It contains a complete 
programming system which has an inter- 
preter /conpiler as well as an assembler 
and editor. All terminal I/O is 
funnelled through a jump table near the 
beginning of the software and can 
easily be changed to jump to user- 
written I/O drivers. 6502 FORTH 
resides in 8K of RAM starting at $2000 
and can operate with as little as 4K of 
additional contiguous RAM. $94.00 for 
6502 FORTH system on KIM cassette. 
$16.50 for 6502 FORTH user manual. 
Eric C. Rehnke, 540 S. Ranch View 
Circle, #61, Anaheim Hills, CA 92087. 



AMD 2901 FORm PROCESSOR 

Functional Automation unleashes the 
I/O thing, a FORTH based front end 
jrooessor for its MID 2901 based 64 bit 
wide microprogrammed computing engine. 
Ohe system progranining language is FASL 
(Functional Automation System Language) 
which is available users. For more 
information, contact: Functional 
Automation Inc., 3 Graham Drive, 
Nashua, NH 03060. 



groic 

STOIC, essentially an extension of 
FORTH, is a general purpose interactive 
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program, assembler, debugger, loader 
and operating system within a single 
consistant architecture. With core 
efficiency and high running speeds, 
the language is extremely flexible 
permitting the user to develop a 
working vocabulary of subroutines 
tailored to specific applications. 

The entire package, including a 
library of predefined subroutines, 
is copyrighted but available to 
educational users. STOIC requires 
three discs, two are STOIC itself and 
the third contains a bootstrap that 
permits the entry of STDIC through CP/M 
and the continued use of CP/M disc I/O 
under STOIC. For more information, 
contact: Steven Burns, Massachusetts 
Institute of Technology, Room 20-119, 
Cambridge, MA 02139. 



68 'FORTH FOR 6809 



68 'FORTH is a 6809 iirplementation 
of the FC«TH Interest Qroup standard 
voc6±)ulary of this powerful language. 

68 'FORTH consists of full FORTH 
Interest Group standard (May 1979) 
vocabulary with names to 31 diaracters, 
16 ani 32 bit integer math, conrpiler 
error checking, and source text 
editor. System is supplied with 
additional vocabulary to simulate disk 
in inenicry (useful for modifying to work 
with other disk systems or enabling 
cassette-only operation), to use disk 
foe virtual memory (allows large data 
sets to be used in small memory), to 
interface with FLEX 9.0 text files for 
input and output, and to perform 
standard FORTH disk block read and 
write. System is supplied on 5" floppy 
disk configured for SWTPC MF-68. 
Minimum memory requirement is 8k for 
FLEX plus 12K of user space. Docu- 
mentation ccntains description of all 
vocabulary words, information on 
configuring for individual system. 



and basic tutorial for FORTH language. 
Information is available for recon- 
figuring to interface with other disk 
operatings systems. 

FLEX 9.0 format 5" disk plus 
documentation: $39.95. 

Talbot Microsystems 

7209 Stella Link, Suite 112 

Houston, TX 77025 



PRODUCT RELEASE 



8080 Assembler Available 

John Cassady, who did the original 
fig-FORTH 8080 listing, has now re- 
leased an 8080 FORTH assembler. John's 
assembler handled all Intel nmemonics 
and can easily be altered to Zilog, as 
it is published as source code. It 
handles structured assembly condi- 
tionals IF, ELSE, THEN, BEGIN, UNTIL, 
WHILE, and REPEAT. It is integrated 
with the FIG security package to verify 
correct structuring of conditionals, 
during assembly. John provides for 
named subroutines as well as CODE 
definitions. 

Send $3.25 (includes postage) to 
John Cassady, 339 15th Street, Oakland, 
CA 94612. 



PolyPORTH-CP/M 

polyFORTH-CP/M is FORTH Inc.'s 
polyPORTH, interfaced to run on nearly 
any 32K or larger CP/M based system. 
When loaded, polyPORTH -CP/M finds and 
links-up to the CP/M I/O drivers, 
initializes itself, and responds "up" 
on the system console. At this point, 
true polyPORTH is running, that is, 
FORTH structured (screen oriented) 
diskettes must be used. It is impor- 
tant to realize that polyPORTH -CP/M 
does not run under CP/M, it runs in 
place of CP/M, utilizing only the CP/M 
I/O drivers. 
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The poly FORTH -CP/M system, as 
supplied by M&B DESIGN, is a value- 
ac3ded system. FOPHK Tnc.'s oc3inplete 
8080 polyFCS?rH system is supplied, plus 
an additional diskette and manual 
cxxitaining interface material. Also 
provided, is a CP/M utility that allows 
transferring polyPC»TH blocks (screens) 
to a CP/M file, and transferrir^ a CP/M 
file to polyPORTH blocks. Source is 
supplied for the entire polyFORTH 
system, the polyFORTH-CP/M oonponents, 
and the transfer utility. 

polyFORTH-CP/M is available directly 
from M&B MSIGN for $4,000 on a wide 
variety of diskette formats. Contact: 



8080 fig-FORIH 
Source Listing 



Installation Manual 
(F.I.G. Model) . . 



10.00 
10.00 



(CA residents add 6% tax) 



Vfcite: Jeff Fox 

2223 Byron 
Berkeley, CA 94702 



(415) 843-0385 



LOTS OF PCRTH 



M&B DESIGN 
820 Sweetbay Dr. 
Sunnyvale, CA 94086 
(408) 243-0834 



FORTH for Poly-88 



fig-FORTH for the 8080 as in5>le- 
mented by John Cassady and modified by 
Kim Harris is now available for the 
PDly-88. 

This version uses cassette and 
ram simulation of disc, and includes 
full use of upper and lower case 
characters as well as the Greek 
character set, as well as high ^peed 
graphics. An editor and an assembler 
are included. 

The cotrplete 

system price is $50.00 

FCKTH on cassette 
(needs 8K RAM 

2000-4000H) 25,00 

Poly-88 Forth 

User's Guide 10.00 



ANCON provides a wide variety of 
FORTH products, including: Hobby 
versions; TRS-80 Cassette, $29.95; 
Heath H8-H89, $49.94; 8080 CP/M 8in, 
$49.95; 6809 5" Flex, $49.94. 

Personel systems; TRS-80 Tape, 
$45.95; Disc, $65.95; 8080 CP/M 8" 
$125.00; pdp-11, $140.00; Northstar, 
Hicropolis. 

Commercial/Indus trial/Scientific 
versions available for specific 
requirements. Jim Flournoy, ANCON, 
17370 Hawkins Lane, Morgan Hill, CA 
95037, (408) 779-0848. 



RENEW NOW! 
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LYON'S DEN 

[Editors note — George Lyons has 
oorjespcnded on FORTH topics over the 
full life of FORTH DIMENSIONS. He 
addresses technical and philosophical 
topics. We're formalizing his con- 
tributions into a bylined column. 
Vtelcome to the Lyon's Den.] 

I suspect that a paramount issue 
in decisions on whether to use FOPfTH or 
another language is a tradeoff between 
language convenience and compiler 
oonvenienoe. By implementing a complex 
syntax a PASCAL compiler , say, auto- 
mates part of the progr aiming task at 
the expense of a time-consuming source 
entry and processing operation. 
Standard FORTH seems to be at the other 
extreme, leaving more explicit details 
to be coded by the programmer, for the 
gain of easier processing with an 
interactive resident compiler. 

The polarization of FORTH and its 
alternatives on this scale may only be 
due to the absence of standard FORTH 
vocabularies to provide the same degree 
of automation traditional languages 
supply. I wonder if a quantum junp in 
FORTH 's popularity would result from 
supplying compilers for traditional 
languages implemented in FORTH. 
Possibly, transparently obvious PC»TH 
language features could be provided 
achieving the same results. Ihe areas 
where the greatest impact might cotae 
are PASCAL data structures, ALGOL 
procedure argument passing cind dyneunic 
local storage allocation, and APL 
niatrix algebra. 

If techniques for these c^)erations 
in FORTH were widely known no one would 
make the mistake of referring to FORTH 
as a species of macro assembler. By 
demonstrating that traditional language 
oonvenienoe is available in FOEflH users 
might be motivated to take advantage of 
the extensibility of FORTH to go beyond 



the limitations of the traditional 
2$^oaches . 

March 14, 1970 



George B. Lyons 

280 Henderson Street 

Jersey City, N.J. 07302 



Programma was nice enough to supply 
me with a reassembled version of their 
^:ple-PORTH Kernel plus screens of the 
dictionary entries for my KIM-1. Itiis 
was all entered by hand, painfully 
debugged, editor programs written (in 
their FORTH), etc. I then tried to 
duplicate the "PI" routine in the Cr. 
Dobbs Journal, only to find that 
Programma didn't carry extra bits of 
intermediate accuracy in the multiply 
routine. Then another week of ^>are 
time (midnight oil) wcark to rewrite the 
math routines to allow "*/MOD" to work 
properly. It finally worked. 

I'm not bitter though. Through all 
of this I learned enough of PORTH-like 
programming to be more enthusiastic 
than ever, but disappointed that the 
example programs I've received from 
you are not usable by the Programma 
version. I am therefore eagerly 
awaiting the availability of the 6502 
version of fig-FORTH for my KIM-1. 



Edward J. Bechtel, M.D. 
Newport Beach, CA 



Should you have any books, manuals 
cr other documents pertaining to FORTH 
which are available by special crder, I 
would like to have a list. There seems 
to be a real need for textbooks or 
tutorials vrtiich will carry a user from 
the most simple FORM constructions to 
the very elaborate ones like <BUIIi3S 
and DOES>. (See #1 below.) 
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Foe your information, I am working 
with the mnsFC^TH in?)lementation from 
Miller Microcomputing Services. I am 
quite satisfied with the system to 
date, and look forward to other exten- 
sions. I have distributed several 
FORTH programs to MMS which they may 
use in their newsletter. Should the 
FORTH Interest Group have a program 
exchange or publish programs, I will 
submit these programs to you also. 
(See #2 and #3 below.) 



Andrew W. Watson 
Vinton, VA 

Editor. . . 

#1 - Use the Mail Order page and see 
Information and New Products 
sections of FD. 

#2 - Send programs to FD! 

#3 - Address for Miller Micro- 
computing Services, 61 Lake 
Shore Raad, Natick, MA 01760. 



I want to tell you how impressed I am 
at the quality of the Installation 
Manual and the 6800 Assembly Source 
Listing! 

The 6800 listing provided everything 
I needed to build an identical source 
file. The Symbol Table and hex dump 
were especially useful in tracking down 
the last small typos. (I used the 
check sums for the 'SI' dump to locate 
typos such as INS instead of INX.) To 
get FORTH running on m/ system, all I 
did was to modify the ACIA address and 
delete the coding for Trace. 

I notice a peculiar behavior 
regarding the stack. If I type . when 
the stack is empty, I get an error 
message, as expected. But after the 
error message, there are two numbers on 
the stack. Is this normal? 



Gordon Stall ings 
Bartlesville, OK 



Editor . . . 

Hie numbers left on the stack after 
an error are the block number and 
character offset. See ERROR. This 
allows WHERE (Scr88) to display the 
offending text. 



Thanks to John James and FIG, 
I've upgraded my sub-PORTO to what I 
now call 2650-POURTH. To date, except 
for the disk I/O verbs, my FORTH more 
or less matches Mr. James' FORTH with 
the exception that I've incorporated an 
assembler, it's fully RDM based and it 
has a few more primitives. I do 
suKxxt a cassette I/F but can't use 
the full power of the fast virtual 
storage. I will release a copy of my 
2650-FORTH to FIG as well as any 
application work that I've done. 

Myself being broadly classified 
as a computer architect or computer 
designer, I have a very keen interest 
in turning out a FORTH engine (to 
borrow a phrase from Western Digital), 
and will attenpt the implementation. I 
will probably use the 2900 series bit 
slices since I have all the development 
tools. Is there someone in this vein 
that I could contact? 



Edward J. Murray 

Rretoria, Union of South Africa 



Editor. . . 

Look forward to receiving your 
2650-PORrH. Adchress for John S. James, 
P.O. Box 348, Berkeley, CA 94701. 



I was somewhat disconcerted when I 
read the article by Mr. David J. Sirag, 
"DTC Versus ITC for FORTH on the 
the PDP-11 FCRItt Dimensions, Volume 
1, No. 3. Itie author has, I believe, 
misunderstood the intent of the article 
by Nr. Oewar. 
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In Mr. Dewar's ariticle, the 
cJefinitions of direct threaded code 
(DTC) and indirect threaded code (ITC) 
are : 

"DTC involves the generation 
of code consisting of a linear 
list of address of a linear list 
of address of routines to be 
excuted . " 

"ITC..." (involves the generation 
of code consisting)"... of a 
linear list of addresses of words 
which contain addresses of 
routines to be executed." 

As applied to the FORTH type of 
hierarchial structure (hierarchial 
indirect threaded code?), I would 
extend Mr. Dewar's definition to 
be: 

"ITC involves the generation of 
code consisting of a linear list 
of addresses of words which 
contain addresses of routines to 
be executed. These routines may 
themselves be ITC structures." 

However, Mr. Sirag based his conclu- 
sions on the following loose defini- 
tion: 

"The distinction between DTC and 
ITC as applied to FORTH is that 
in DTC executable machine code 
is expected as the first word 
after the definition name; vrfiile, 
in ITC the address of the 
machine code is expected." 

Obviously, the two men are not 
referring to the same things. Mr. 
Dewar is referring to the list of 
addbresses which define the KUBTH word, 
while Mr. Sirag is referring to the 
implementation of the FORTH inter- 
preter. If indeed Mr. Sirag 's state- 
ment were true (which it is not) that 
their "analysis contradicts the 
findings of Dewar", then they should 
have inpleraented a USC language rather 
than the ITC language of FORTH! 
Indeed, a careful examination of v^t 
is actually occuring in LABFORTH 



reveals that their techniques are 
logically identical to Dewar's ITC. 
They have simply, through clever 
programming, taken advantage of a 
particular instruction set and archi- 
tecture. It is beyond the scope of 
this letter to prove this equivalence, 
or to suport the FIG desire to have a 
common inplementation structure for all 
versions of FIG FORTH. 

Please note that I am not quibling 
over semantics with Mr. Sirag. All 
definitions are arbituary. (Itowever, 
the value of a definition lies in its 
consistency, precision, and use- 
ability. I find Mr. Sirag's definition 
of DTC and ITC to be inconsistent with 
the environment in vi^ich he operates, 
FORTH, and thus quite useless.) My 
intent is two fold: (1) I am a self- 
appointed defender of the excellent 
work of Mr. Dewar, and (2) I want to 
ccarrect any misconceptions concerning 
this issue for readers of this news- 
letter who did not have access to 
Dewar's (better) definition of DTC and 
ITC. 



Jon F. Spenoer 
Sherman Oaks, CA 



Many thanks to John Cassady for 
writing an excellent 8080 FORTH and 
to Kim Harris for implementing the 
necessary mods. I received 8080 
fig-FORTH Ver . 1.1 on 2 October 
1979 and within a few days had the 
assembly language source typed in and 
assembled. A day or two later the 
editor with a suitable patch for 
the MATCH code was up and running 
along with the disk based long error 
messages. I have been learning and 
gaining experience with fig-FORTH ever 
since. 

After more than a year of using 
STOIC from volume #23 of the CP/M Users 
Gtoup it is really nice to be using a 
true FORTH that is consistant with the 
examples in the FORTH Inc. manuals and 



Page 17 



the several articles that have appeared 
on FX3RTH. I cannot over-ernphasize how 
well documented the fig-PORTH system is 
and how easy the system was to bring 
up. No bugs or errors have been 
uncovered in nearly six months of 
use . 

The only thing missing from this 
otherwise nearly perfect package is 
the assembler vocabulary. Is an 
8080/Z-80 assembler vocabulary avail- 
able from the FORTH Interest Group or 
if not is any planned? If an 8080 
assembler is available or is planned a 
short note or a word about future plans 
in the next issue of FORTH DIMENSIONS 
would be sufficient. 

In any case I hope I get to see 
some of you at NCC in May so that I can 
personally thank you for making FORTH 
available to me. . . 

Sincerely, 



M. Paul Farr 
2250 Ninth Street 
Olivenhain, 92024 



Ek3itor — 

Yes! An 8080 assembler is now 
available in source code to complement 
8080 fig-FORTH. Send $3.25 (includes 
postage) to John Cassady, 11 Miramonte 
Road, Orinda, CA 94563. 



Many thanks for the fig-FORTH 
installation manual glossary and FORTH 
Model, which have been difficult but 
enjoyable items of study since they 
arrived a couple of weeks ago. 

Like many of your members I became 
interested in FORTH without having 
access to a POTTH system, and gained my 
first practical familiarity by using 
the FORTH low level interpreter style 
of linkage on machine code programs. 



with help from the Model I have now 
got to grips with the outer interpreter 
and virtual memory system, and will be 
getting together with Bill Powell and 
other FORTH fanciers over here on an 
cooperative implementation effort. 

Many thanks for your effort and 
creativity, which are not unapprecia- 
ted! 



Bill Stoddart 

15 Croftdown Road 

London NWS, England 



Editor's note ~ Bill had a marginal 
note to this letter: "certainly grows 
on you. This really is 'Cc«nputer 
Liberation.' BASIC was just a red 
herring." 



Do you have a Z80 version of fig- 
PORTH? It is not listed on your order 
sheet but reading the text I got the 
impression that you do. 

By the way, I have a tutorial paper 
discussing assembly programming in 
FORTH environment for both 8080 and 
Z80. It is available, including source 
listing written in fig-FORTH, from 
KALTH microsystems. The price is 
$5. -US for 8080/85 version, $7. -US for 
Z80 version or $10. -for both (add 15% 
in Canadian funds). 

Also, I am working on the assembler 
for the Intel 8086/88. If I knew that 
there are also other people interested 
in it, that would motivate me getting 
it ccxnplete sooner. (It is a cross- 
assembler that can be run on any FORTH 
based system.) 

Yours truly. 



Kalman Fejes 

KALTH microsystems 

P.O. Box 5457, Station "F" 

Ottawa, Ont., Canada 
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Editor — 

Fig doesn't have a plan a Z-80 
version of fig-FORTH. We would be 
pleased to publish a contributed 
version, if as complete as the 8080 
Version 1.1 



accessing and manipulating data. 
Indirection, however, is only a 
navagation technique for constructing 
the address required by the hardware to 
iirplement our desired operation. When 
at the end of our circuitous logic, are 
we then to complain "What can I do 
about this address". 



As a participant in the Fccth Inter- 
national Standards Team, I cast a yeah 
vote for the inclusion of "TO" and its 
requisite definition of VARIABLE 
(though I prefer the name FIELD). 
Although I was first exposed to this 
definition on Catalina Island, it 
has many similarities to my own 
implementation of FIELD and RECORD. 

In its simplest form, as outlined 
by Paul Bartholdi, FORTH DIMENSIONS 
1/4, integer variables of predetermined 
precision are defined to behave as 
bidirectional constants. Normal 
behavior is to push their stored value 
onto the stack. A momentary, alternate 
behavior is to pop the stack value 
into their confines. This temporary 
behavior occurs only when referenced 
after the word "TO", which sets a 
direction flip-flop. Thus 



VARIABLE A 
10 TO A 



VARIABLE B 
A TO B 



will place 10 into A and B without 
using the @ (fetch) and ! (store) 
curators. 

Each of us, who has implemented 
a version of "TO", encounters sc«ne 
exasperation in dealing with the 
addresses appearing on the stack. 
Since, in the prior illustration, 
neither A nor B supplied its address 
for TO's execution we ponder the 
shortcomings of this newly offered 
definition and reluctantly sprinkle our 
procedures with @ and ! . 

FORTH is an elaboration on the 
indirect threaded list pcogram archi- 
tecture. As programmers we are free to 
add indirection to our methods of 



Let's face it, @ and ! are perfect 
c^jerators. 

I value TO and its implications in 
system structure. The procedures 
written using "TO" are more readable 
than standard Forth, and result in 
fewer visits to NEXT as they are 
executed. "TO" will be included in any 
system I generate, together with other 
essential words, which include @ and 



As a Forth fanatic and a FORTH 
DIMENSIONS fan I sincerely hope that 
the newsletter will continue. If there 
is seme assistance I can render please 
advise . 



Williams S. Dmery 

2700 Peterson Place, #53D 

Costa Mesa, CA 92626 



Editor — 

You're doing it! By thoughtful 
correspondence and participation in 
group events people such as Bill are 
multiplying our efforts. 



STRUCTURED VARIABLES 



From time to time at the Fig meet- 
ings the question of structured 
variables arises. Ttiis is a proposal 
for how they might be handled. 

The December 1978 issue of com- 
munications of the ACM contained a 
paper by John Backus on "Functional 
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Progranming" (also called variable free 
prograiming ) . I believe a variation of 
his ideas could be implemented in 
FXDRTH. Suppose we are given a pair of 
queues with bases at opposite ends of 
available memory pointing toward each 
other . Then enter an array into one of 
them and begin processing it. Let the 
results go to the other queue as they 
are developed. Multiple steps would 
alternate between the queues until a 
final result is obtained. These 
alternating queues can give some of the 
effects of functional programming (1) 
large state changes, (2) limited memory 
of past states, (3) no concern with 
garbage collection, 4) variables not 
named or declared. 

Backus placed operators within the 
data. This could be done or not, as 
experience dictates. Itiese queues are 
not to replace the stack which FORTH 
already has. The stack could be used 
to hold what I would call operator 
variables or modifiers. 

Let us look at a couple of simple 
exairples. Suppose we wanted to trans- 
pose an array. 12 3 
4 5 6 

Enter it into one queue. (12 3 4 5 
6] . Type in the transpose coranand. 2 
1 TP. Ttie 2 and the 1 go on the stack 
so the transpose function knows what 
kind of a transpose is desired. Hie 
result will come out on the other 
queue: 14 2 5 3 6] 

Should we wanted to sum a vector. 
(1 2 3 4 5 6] . Type in a reduction 
command. ' + RD. The 'Tick' put the 
address of 'Plus' on the stack so the 
reduction function knows what kind of 
reduction to perform. Ihe other queue 
receives the result: 21 J 



W. H. Dai ley 

47436 Mantes Street 

Fremont, CA 94538 



FORTH IN THE PUBLIC VIEW 



After the survey article in March 
15, 1979 Electronics , Mr, Robert 
Gaebler wrote the usual letter to the 
editor critiquing FORTH 's postfix 
notation. We are reprinting a well 
stated rebuttal to this letter which 
also appeared in Electronics . 

To the Editca:: 

I want to reply to Robert Gaebler 's 
letter on expression format in the 
FORTH language [ Electronics , July 5, 
1979, p. 6]. 

Gaebler notes, and I agree, that 
compilers can do the translation from 
infix to postfix notation and thus save 
the prograimer both work and the risk 
of errors. Unfortunately, these 
advantages are not available without 
some penalty for extensible languages 
such as FORTH. If the compiler is to 
translate, it must know how to parse 
expressions. The parsing rules for 
primitive operators are supplied with 
the oon5>iler, but those for the added 
operators must be supplied by the 
programmer at compile time, which makes 
the parser much more complicated. 

Examination of almost any program 
will reveal that the majority of 
program statements are nonalgebraic 
or can easily be converted to a non- 
cdgebraic form. Thus the advantages 
of infix notation, when present, 
apply only to a fraction of the 
program statements. Fca: most function 
definitions, the prefix notation of 
subroutine or macro calls is required, 
and this can be replaced by postfix 
notation with little or no loss of 
clarity. 

Use of postfix notation l?aves 
the parsing of all expressions in the 
hands of the programmer. It means that 
arguments for an operator may be 
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any 
the 



prcfared using the full power of the 
proqraJBting language, without 
restrictions being imposed by 
ooifjiler. With this freedom comes the 
possibility of error, and argument 
preparation is one of the most error- 
prone portions of programming in a 
language such as FORTH. If effort is 
to be spent on improving the ease of 
programming, it should be spent on 
si.T.plif ying argument preparation 
and stack manipulation. Postfix 
rotation, with the applicative style of 
programming that it produces, has so 
many advantages that it should not be 
sacrificed to an algebraic notation 
that is not "natural," but only some- 
thing we all learned in school. 



THIS IS THE END! 
THE END OF VOLUME il #1! 
THE END OF YOUR MEMBERSHIP? 
DON'T LET IT HAPPEN! 
RENEW TODAY! 
CHECK THE LABEL FOR RENEWAL DATE! 
SEND A CHECK TO FIG TODAY! 
MAKE THIS YOUR BEGINNING! 
RENEW NOW! 




MAKE A COPY FOR A FRIEND! 
POST COPY ON YOUR BULLETIN BOARD 1 
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